home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / frmtest5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-22  |  1.9 KB  |  62 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTest5 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   2604
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   3504
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2604
  14.    ScaleWidth      =   3504
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CheckBox chkWindowEdge 
  17.       Caption         =   "Window Edge"
  18.       Height          =   192
  19.       Left            =   120
  20.       TabIndex        =   3
  21.       Top             =   1020
  22.       Width           =   2712
  23.    End
  24.    Begin VB.CheckBox chkStaticEdge 
  25.       Caption         =   "Static Edge"
  26.       Height          =   192
  27.       Left            =   120
  28.       TabIndex        =   2
  29.       Top             =   720
  30.       Width           =   2712
  31.    End
  32.    Begin VB.CheckBox chkClientEdge 
  33.       Caption         =   "Client Edge"
  34.       Height          =   192
  35.       Left            =   120
  36.       TabIndex        =   1
  37.       Top             =   420
  38.       Width           =   2712
  39.    End
  40.    Begin VB.CheckBox chkAppWindow 
  41.       Caption         =   "AppWindow"
  42.       Height          =   192
  43.       Left            =   120
  44.       TabIndex        =   0
  45.       Top             =   120
  46.       Width           =   2712
  47.    End
  48. Attribute VB_Name = "frmTest5"
  49. Attribute VB_GlobalNameSpace = False
  50. Attribute VB_Creatable = False
  51. Attribute VB_PredeclaredId = True
  52. Attribute VB_Exposed = False
  53. Option Explicit
  54. Public Sub RefreshStyles()
  55.    Dim w As sgWindow.Window
  56.    Set w = frmMain.g_wndTest
  57.    chkAppWindow.Value = IIf(w.Style And ws_EX_APPWINDOW, 1, 0)
  58.    chkClientEdge.Value = IIf(w.Style And ws_EX_CLIENTEDGE, 1, 0)
  59.    chkStaticEdge.Value = IIf(w.Style And ws_EX_STATICEDGE, 1, 0)
  60.    chkWindowEdge.Value = IIf(w.Style And ws_EX_WINDOWEDGE, 1, 0)
  61. End Sub
  62.